From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 17 Jun 2011 15:18:54 +0000 (-0400)
Subject: * src/fns.c (Fsafe_length): Yet another int/Lisp_Object mixup.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~3429
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=ba64b6590df8959eca8be9888dbd74c13cc09662;p=emacs.git

* src/fns.c (Fsafe_length): Yet another int/Lisp_Object mixup.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 13483b8340b..75241d49524 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2011-06-17  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* fns.c (Fsafe_length): Yet another int/Lisp_Object mixup.
+
 2011-06-16  Paul Eggert  <eggert@cs.ucla.edu>
 
 	* lisp.h: Include <limits.h>, for INT_MAX, LONG_MAX, LLONG_MAX.
diff --git a/src/fns.c b/src/fns.c
index a19c886e3e1..8057e429176 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -168,7 +168,7 @@ which is at least the number of distinct elements.  */)
   uintmax_t lolen = 1;
 
   if (! CONSP (list))
-    return 0;
+    return make_number (0);
 
   /* halftail is used to detect circular lists.  */
   for (tail = halftail = list; ; )